gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\login.asp
<!-- #include file = "include/conndb.asp" --> <% dim szMemberID dim strSQL, rsObj, strPwd szMemberID = RealString(Request.Form("memberID")) strPwd = RealString(Request.Form("password")) if szMemberID = "" then %> <script language = Javascript> alert("用户名不能为空!"); window.history.go(-1); </script> <% response.End end if strSQL = "SELECT * FROM Member WHERE MemberID = '" & szMemberID & "'" 'response.write sql 'response.End set rsObj = conn.Execute(strSQL) if not (rsObj.eof or err) then if strPwd = rsObj("Pwd") then session("memberID") = rsObj("memberID") response.redirect "default.asp" else Response.Write "<script language = Javascript>" Response.Write "alert('用户名或密码错误,请重新输入!');" Response.Write "window.history.go(-1);" Response.Write "</script>" end if else %> <script language = Javascript> alert("用户名或密码错误,请重新输入!"); window.history.go(-1); </script> <% end if %>